home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / Panorama3_d1.adf / F10.Panorama < prev    next >
Text File  |  1992-12-29  |  881b  |  48 lines
  1. /* Create an unending series of fractal landscapes and view each
  2.      from 3 positions.  To quit, press escape while a picture is
  3.      being drawn (after clicking on the picture to make it the
  4.      active window). */
  5.  
  6. OPTIONS RESULTS
  7. address 'Panorama'
  8. 'AmigaOverscan 1'
  9. 'HoldPic'
  10. do forever
  11.   'NewScape 0 1'
  12.   'NewLevel'
  13.   'NewLevel'
  14.   'NewLevel'
  15.   'Lakes 0'
  16.   if rc > 10 then leave
  17.   'Rivers 2 16'
  18.   'SunPosition 0 40'
  19.   'ShadingType 3'
  20.   'ObsDir 90'
  21.   'ObsDist 4700'
  22.   'RelObsZ 500'
  23.   'ViewDir 270'
  24.   'VertViewAngle 10'
  25.   'FocalLength 35'
  26.   'SunContrast 0.5'
  27.   'DrawPic'
  28.   if rc > 10 then leave
  29.   call time 'R'
  30.   do until time('E')>10
  31.   end
  32.   'ObsDir 210'
  33.   'ViewDir 30'
  34.   'SunContrast 0.7'
  35.   'DrawPic'
  36.   if rc > 10 then leave
  37.   call time 'R'
  38.   do until time('E')>10
  39.   end
  40.   'ObsDir 330'
  41.   'ViewDir 150'
  42.   'SunContrast 0.25'
  43.   'DrawPic'
  44.   if rc > 10 then leave
  45.   'ShowPic'
  46. end
  47.  
  48.